﻿Public Class frmEditarUsuarios

    Private mUsuariosBE As BE.Usuarios
    Private mUsuariosBS As BS.Usuarios
    Private mId As Integer

    Public Property Id() As Integer
        Get
            Return mId
        End Get
        Set(ByVal value As Integer)
            mId = value
        End Set
    End Property


   

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub


    Private Sub EditarUsuarios_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        mUsuariosBS = New BS.Usuarios
        mUsuariosBE = mUsuariosBS.Obtener(Me.Id)

        Me.txtNombreCompleto.Text = mUsuariosBE.NombreCompleto
        Me.txtIdentificacion.Text = mUsuariosBE.Identificacion
        Me.txtUsuario.Text = mUsuariosBE.NombreUsuario
        Me.txtContraseña.Text = mUsuariosBE.Contraseña

    End Sub

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click

        Me.mUsuariosBS = New BS.Usuarios

            If DatosValidos() Then

            Me.mUsuariosBE.NombreCompleto = txtNombreCompleto.Text
            Me.mUsuariosBE.Identificacion = txtIdentificacion.Text
            Me.mUsuariosBE.NombreUsuario = txtUsuario.Text
            Me.mUsuariosBE.Contraseña = txtContraseña.Text


                If (Not mUsuariosBS.Editar(mUsuariosBE)) Then
                    MessageBox.Show("Problemas al Editar")
                Else
                    Me.DialogResult = Windows.Forms.DialogResult.OK
                End If
            End If

    End Sub



    Function DatosValidos() As Boolean

        Dim primerControl As Control = Nothing
        Dim mensajeDeValidacion As String = String.Empty

        Me.txtNombreCompleto.Text = txtNombreCompleto.Text.Trim
        Me.txtIdentificacion.Text = txtIdentificacion.Text.Trim
        Me.txtUsuario.Text = txtUsuario.Text.Trim
        Me.txtContraseña.Text = txtContraseña.Text.Trim


        If Me.txtNombreCompleto.Text = String.Empty Then
            mensajeDeValidacion = "Nombre es Requerido"
            primerControl = Me.txtNombreCompleto
        End If

        If Me.txtIdentificacion.Text = String.Empty Then
            mensajeDeValidacion = "Identificacion"
            primerControl = Me.txtIdentificacion
        End If

        If Me.txtUsuario.Text = String.Empty Then
            mensajeDeValidacion = "Nombre de Usuario Requerido"
            primerControl = Me.txtUsuario
        End If

        If Me.txtContraseña.Text = String.Empty Then
            mensajeDeValidacion = "Contraseña Requerida"
            primerControl = Me.txtContraseña
        End If


        If Not primerControl Is Nothing Then
            MessageBox.Show(mensajeDeValidacion, "Validación", MessageBoxButtons.OK)
            primerControl.Focus()
        End If
        Return True
    End Function

  
End Class